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PREFACE 


This manual describes a group of relocatable plotter 
subroutines that aids the programmer in converting 
computed data into graphic form. These subroutines 
can be used with any IBM 1130 Computing System or 
1800 Data Acquisition and Control System that 
includes an IBM 1627 Plotter, Model 1 or 2. These 
subroutines supplement the basic plotter subroutine 
included as a part of the 1130 and 1800 subroutine 
libraries and can be used with any of the following 
IBM programming systems: 


e 1130 Card/Paper Tape 


@ 1130 Disk Monitor 


@ 1800 Card/Paper Tape 


e 1800 Time-Sharing Executive (Phase II) 


Core storage requirements are given in Appendix 

A, subroutine usage is listed in Appendix B, and a 

two sample programs are shown in Appendix C. 
Descriptions of related publications can be found 

in the following: 





e [BM 1130 Computing System Bibliography 


(Form A26-5916) 


e IBM 1800 Data Acquisition and Control System 
Bibliography (Form A26-5921) 


Copies of this and other IBM publications can be obtained through IBM Branch Offices. A form has 
been provided at the back of this publication for reader’s comments. If the form has been detached, 
comments may be directed to: IBM, Programming Publications Dept. 452, San Jose, Calif. 95114 


© International Business Machines Corporation 1966 
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GENERAL 


When connected to an IBM 1130 Computing System 
or an IBM 1800 Data Acquisition and Control 

System, the IBM 1627 Plotter can be programmed 

to produce bar charts, organization charts, 
engineering drawings, maps,or special curves. 

This manual describes a set of subroutines, written 
in assembler language, used to control the plotter. 
The subroutines can also be called from a FORTRAN 


language program. 


PLOTTER CHARACTERISTICS 


The basic characteristics of the plotter are listed 


in Table 1. 


X-axis movement is produced by rotating the 
chart paper on the drum under the pen. Rotating 
the drum down causes the pen to draw a line, 
effectively, in the up direction; this movement 


is the positive X-axis motion. 


Rotating the chart 


paper up produces the negative X-axis motion. 
Y-axis movement is caused by moving the pen 


parallel to the drum axis. 


When looked at from 


the front of the plotter, the positive Y-axis motion 
is to the left; the negative, to the right. 

Thus, the length of the X-axis is limited by the 
length of the roll of chart paper, and the length 
of the Y-axis is determined by the paper's width. 
Various combinations of paper and pen movement 
with the pen up or down are utilized to produce 
the desired drawings. 


Table 1. IBM 1627 Plotter Characteristics 


Characteristic 


Chart Paper Width 
Plotting Width 


Chart Paper Length 


Plotting Length 


Incremental Step Size 


Step Speed 


Pen Status Change 


12 inches 
11 inches 
120 feet 
120 feet 
1/100 inch 


Up to 
18,000 steps/min. 


600 Operations/min. 


Model 1 Model 2 


31 inches 
29-1/2 inches 
120 feet 

120 feet 
1/100 inch 


Up to 
12,000 steps/min. 


600 Operations/min, 









INTRODUCTION 


PLOTTER CAPABILITIES 


The plotter generates all lines by using a series of 
incremental straight line segments. The increment 
length is 0.01 inch, drawn in either a positive or a 
negative direction, parallel to either the X-axis or 
the Y-axis. Also, the paper and pen can be moved 
simultaneously to produce line increments at a 45° 
angle to either axis in either direction. This results 
in a diagonal line connecting opposite corners of an 
X-Y square. Combinations of increments at various 
angles can closely approximate any desired curve. 
Preciseness of lines and characters depends on 
the size of the pen point and the scale selected by 
the programmer. Figure 1 illustrates the smallest 
line increments capable of being generated and a 
sample curve made by using these increments. 


Basic Line Increments 


Enlarged Area of 
Curve Example 


Curve Example 





Figure 1. Plotter Line Generation 


Introduction i 


Graphs, curves, charts, etc., can be developed 
by programming the appropriate instructions to the 
plotter. 

Because of the relative slowness of the plotter, 
compared with the computer, the plotter system has 
a buffering scheme which holds plotter instructions 
until they are executed. This leaves the computer 
free to do other jobs while the actual plotting is 
being completed. 


SUBROUTINE FUNCTIONS 


There are six primary functions of the plotter 
subroutines described in this manual. 


e Scale: Accepts and stores scaling information 
required by the grid and plot functions. 


e Grid: Draws a line with scaled grid marks. 


e Plot: Moves the pen from its present position 
to a new position. It can also raise or lower 
the pen either before or after the traverse 
movement. 


e Point: Draws a special point character at the 
present location of the pen, if the pen is down. 


The point characters available are +,x<,V ,<J, 
4, and. All point characters are fixed in 
size. 


e Character: Positions the pen for annotation and 
provides character size and angle information. 


e Annotation: Forms the characters to be plotted 
from computer output data. Characters available 
are 0-9, A-Z, and’-+., */=()$'. (The 
symbol % represents a blank character. ) 


INPUT FORMAT 


The input data to the subroutines can be either in 
extended or standard precision format, but different 
subroutines are required for each precision, with 
the exception of the point subroutine. For example, 
to perform the plot function in standard precision, 
the FPLOT subroutine is used; for extended preci- 
sion, the EPLOT subroutine is used. Standard 
precision uses two 16-bit words to form a constant 
or variable, while extended precision uses three 
16-bit words for the same constant or variable. 


SCALE 


If the scale subroutine is not called, the plot sub- 
routine assumes initial scale values of one inch per 
unit along both axes and establishes the origin 
(intersection of the X axis and the Y axis) at the 
present pen position. However, the scale subroutine 
must be called to define other scale factors and to 
establish the origin at other points. The scale sub- 
routine can be called as often as required to redefine 
the scaling values and the origin position (see 
Figure 2). 


X Direction: 0.25 Inch Per User's Unit 
Y Direction: 0.05 Inch Per User's Unit 


Desired Scale: 


Call Example (FORTRAN): 
CALL SCALE (0.25, 0.05, -5., 30.) 
a eee 
X,Y Scale Factor Present Pen Location 
(Inches Per User's Unit) (User’s Units) 


Chart Paper 


(Not Drawn 
To Scale) 


Desired 
Origin 





Present Pen 


Location. 
(-5,30) 


= 
i—) 
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[——) 
= 
a ah f 
fom] 
i——) 
= 
co 
f——} 
[om] 


Paper Movements Pen Movements 


<= left Right» 


ub Down 


Figure 2. Scaling and Origin Location (Example) 





PLOTTER SUBROUTINES 


NOTE: Each time the scale subroutine is called, 
the origin established is based on the physical 
location of the pen. Therefore, the pen must be 
moved to the position assumed by the subroutine 
before the subroutine is called. Also, the pen _ 
position cannot be moved more than 327.67 inches 
in either X direction from its physical location at 
the time the origin was last established. 


Scale values are given in inches per unit of the 
using program. For example,. to indicate a scale 
of 1/4 inch equal to 1 foot, the scale value would 
be 0.25. To indicate a scale of 1 inch equal to 
10 years, the scale would be 0.1. Different scale 
values can be assigned to the X axis and the Y axis. 

The pen is usually aligned by reticle adjustment 
to some point on the chart paper. The scale sub- 
routine establishes the origin at any desired point 
relative to the physical location of the pen when the 
subroutine is called. Thereafter, or until the 
origin is moved, all measurements are calculated 
from this origin to prevent an accumulation of 
errors which would result from measuring from 
point to point with calculated values that have been 
rounded off or truncated. 

The values inserted by this subroutine are 
positive or negative as measured perpendicularly 
from each desired axis to the present location of 
the pen. 


FORTRAN 
Standard precision: 


CALL SCALF(X, Y, X, Y) 
Ss Ss Oo oO 


Extended precision: 


CALL SCALE (X_, Y_, X_, Y ) 
S's 0 0 


X, is a real constant or variable that defines the 
number of inches per user's unit to be used along 
the X axis. 
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Y, is a real constant or variable that defines the 
number of inches per user's unit to be used along 
the Y axis. 

Xo is a signed real constant or variable that 
specifies the X value of the present position of the 
pen relative to the desired origin, measured in the 
user's units. 

Y, is a signed real constant or variable that 
specifies the Y value of the present position of the 
pen relative to the desired origin, measured in 
the user's units. 


Assembler 


Standard precision: 


CALL SCALF 
DC A 
DC B 
DC C 
DC D 


Extended precision: 


CALL SCALE 
DC A 
DC B 
DC Cc 
DC D 


A, B, C, and D are the addresses of constants or 
variables whose values correspond to X,, Yg, Xo» 
and Y,, respectively, as described in the FORTRAN 
calls. 

For the standard precision calling sequence, 
each constant or variable designated by A, B, C, 
and D must be two words. This is accomplished 
best by using the DEC statement. For extended 
precision, each constant or variable must be three 
words. This is accomplished best by using the 
XFLC statement. 


GRID 


The grid subroutine plots a straight line parallel 
to either the X or the Y axis in a positive ora 
negative direction with tick marks at regularly 
spaced intervals. The tick marks are 0.10 inch 
long, with one half of the mark on each side of, and 
perpendicular to, the gridline. The programmer 


must specify the starting point, the direction to be 
plotted, how far to go, and the distance between 
tick marks. 

It is not required to know either the location of 
the pen or whether it is up or down when this sub- 
routine is called. At the end of the subroutine, the 
pen is left in the up position. 


0.01 inch 


i 


Starting ¥ 


Point Tick Marks 


FORTRAN 
Standard precision: 
CALL FGRID (I, X, Y, L, N) 
Extended precision: 
CALL EGRID (I, X, Y, L, N) 
I is an integer constant or variable that specifies 


the direction the grid line is to be generated, as 
follows: 


I = 0 specifies the 

= 1 specifies the 
I= 2 specifies the 
I= 3 specifies the 


+X direction 
+Y direction 
-X direction 
~Y direction 


Only the last two bits of I are used to determine 
the direction; therefore, use of larger numbers 
would repeat the instructions. For example, 
24 or 4 plot the same as 0 (+X direction). 

X is a signed real constant or variable that 
specifies the X value of the grid line starting point, 


measured in the user's units. 
Y is a signed real constant or variable that 


specifies the Y value of the grid line starting point, 
measured in the user's units. 

Lis a real constant or variable that specifies 
the distance between tick marks, measured in the 
user's units. 

N is an integer constant or variable that defines . 
the length of the grid line. N is equal to the number 
of tick marks. minus one, and must be less than 
32768. 


Assembler 


Standard precision: 


CALL FGRID 
DC A 
DC B 
DC C 
DC D 
DC E 


Extended precision: 


CALL E 
DC A 
DC B 
DC . Cc 
DC D 
DC E 


A, B, C, D, and E are the address of constants 
or variables corresponding toI, X, Y, L, andN, 
respectively, of the FORTRAN language calls. 

The constants or variables represented by A and 
E should be one word each in both standard and 
extended precision calls. Each constant or variable 
represented by B, C, and D must be two words for 
standard precision and three words for extended 
precision. 


PLOT 
This subroutine is called to move the pen from its 
present position to a new position. The pen can 


also be raised or lowered before or after the 
traversé movement, as a part of this subroutine. 


NOTE: If the pen is up (or down), and a command 
is given to go up (or down), 100 milliseconds of 
plot time are wasted in performing the redundancy. 
FORTRAN 
Standard precision: 

CALL FPLOT (I, x Y)) 
Extended precision: 


CALL EPLOT (I, X_, Y_) 
n on 


I is an integer expression controlling the pen as 


follows: 
I = Zero No change 
I= Positive Control pen before movement 
I= Negative Control pen after movement 
I = Odd Raise pen 
I= Even Lower pen 


Xn is a signed real constant or variable defining 
the X value of the new position, measured in the 
user's units. 

Yy is a signed real constant or variable defining 
the Y value of the new position, measured in the 
user's units. 


Assembler 


Standard precision: 


CALL FPLOT 
DC A 
DC B 
DC C 


Extended precision: 


CALL EPLOT 
DC A 
DC B 
DC C 


A, B, and C are the addresses of constants or 
variables corresponding to I, X, and Yy, respec- 
tively, of the FORTRAN calls. 

The constant or variable represented by A should 
be only one word in both standard and extended 
precision. Each constant or variable represented 
by B and C must be two words for standard precision 
and three words for extended precision. 


POINT 


The point subroutine draws special point characters 
at the present position of the pen. The pen must 

be down when this subroutine is called. The point 
characters, and the points about which they are 
drawn, are illustrated below. All points are at 

the intersection of the horizontal and vertical 

line. 
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FP fy - 


This subroutine assumes the pen is down and 
leaves the pen down when finished. Each point 
character is inscribed within a 0.10 inch square. 
FORTRAN 
The pen remains in the down position: 


CALL POINT (I) 


Tis an integer expression that defines the character 
to be drawn as follows: 


I < 0 blank 
I=0 + 
I=1 x 
I=2'V 
I=3 4 
I=4 A 
I=5 0 
I =6 blank 
Assembler 


The pen remains in the down position: 


CALL POINT 
DC A 


A is the address of a one word constant or variable 
whose contents correspond to the I of the FORTRAN 
call. The constant or variable represented by A 
must be only one word in length. 


CHARACTER 


This subroutine is used to initialize the annotation 
subroutine by establishing the height and width of 
characters, the angle (relative to the X axis) they 
are drawn, and the starting location. Calling this 
subroutine also raises the pen (if down) and moves 
the pen to the specified starting location. The 

height and width parameters determine a rec- 





tangle inside of which each character is drawn 
(see Figure 3). Once called, this subroutine 
does not have to be called again unless it is 
desired to change the parameters established 
by this subroutine. 


FORTRAN 
Standard precision: 
CALL FCHAR (X_, Y_, X_, Y_, Theta) 
n ns’ 's 
Extended precision: 


CALL ECHAR (X_, Y_, X_, Y_, Theta) 
hn ns Ss 


Minimum Character Size Rotated Character 
For Character Subroutine Example 


Desired Letter Size: 


Width: 0.3 In, 
Height: 0.2 In. 
Angle: 0.7 Rad. 


Call Example (FORTRAN): 


Starting Stopping Point GALE: FCHAR (4,-7, 0.3,0.2, 0.7) 
Point (X,Y) (Pen Up) Starting ~ ( 
Point ‘ Letter 


+X +X—» 9.03" Size Angle 







Be SSREEe. N 
Sane Eee. 
Ht} tt 





Stopping 
Point 


(Pen Up) 


+X — 


Starting Point 
(X,Y Value 


Figure 3. Character Plotting (Example) 





X, is a signed real variable or constant defining 
the X value of the starting location. 

Yy is a signed real variable or constant defining 
the Y value of the starting location. 

X,g is an unsigned real variable or constant 
defining the width of the character, expressed in 
inches. A value exceeding two decimal places will 
be rounded off to the nearest 0.01. 

Yg is an unsigned real variable or constant 
defining the height of the character, expressed in 
inches. A value exceeding two decimal places will 
be rounded off to the nearest 0.01. 

Theta is a signed real variable or constant 
defining the angle at which the character (or line 


of characters) is to be drawn, expressed in radians. 


Theta is measured by rotating a line parallel to the 
X axis about the starting location. Positive values 
produce counterclockwise rotation; negative values, 
the opposite. 


Assembler 
Standard precision: 
CALL FCHAR 
DC A 
DC B 
DC C 
D 
E 


DC 
DC 


Extended precision: 


CALL ECHAR 
DC A 
DC B 
DC C 
DC D 
DC E 


A, B, C, D, and E are the addresses of real 
constants or variables corresponding to the X,, Yy, 
Xs, Yg, and Theta, respectively, of the FORTRAN 
calling sequence. The constants or variables 
represented by A, B, C, D, and E must be two 
words in standard precision and three words in 
extended precision. 


NOTE: When the plotter subroutines are first 
loaded, X, and Y,, are set to 0.10 inch and Theta 
is set to zero. If the annotation subroutine is 
called without calling the character subroutine, 
the characters are plotted at this size and angle, 
starting at the present position of the pen. These 
values are replaced by those of the character sub- 
routine when first called and, if needed, must be 
reinserted by using the character subroutine. 


ANNOTATION 


This subroutine forms the characters specified by 
computer output data to the parameters established 
by the character subroutine. These parameters 
determine a rectangle inside of which each character 
is drawn. The starting location is the lower left 
corner of the rectangle. In a continuous row of 
characters, the starting location is the lower left 
corner of the first character. When the last 
character is completed, this subroutine stops the 
pen in the up position over the lower left corner 

of the next character position in sequence. Repet- 
itive lines are plotted end to end. The character 
set available is 0-9, A-Z, andb-+., */=()$'. 


FORTRAN 


Standard or extended precision: 


WRITE (I, FORMAT) List 


Tis the unsigned integer constant or variable 
that specifies the logical unit number of the I/O 
unit (plotter) to be used for output data. This 
number can be changed in the 1800 system when 
establishing the FORTRAN I/O unit (IOU) table. 

FORMAT is a statement number of the FORMAT 
statement describing the type of data conversion to 
be performed between the internal and external 
representation of each quantity in the list. 

List is a list of variable names, separated by 
commas, which represent the output data. 
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Assembler DC 0 (Not Used) 
Standard precision: 


LIBF FCHRI A DC U 


DC (Non-Zero) DC 0 (Not Used) 
DC A EBC V 
DC 0 (Not Used) EBC W 
A DC U 
DC 0 (Not Used) 
EBC Vv A is an arbitrarily assigned label. 
EBC W U is an unsigned integer expressing the total 


number of words contained under the label A, 

including one for the unused DC statement (0). 
V, W, etc., are the output data in EBCDIC. 

There are two 8-bit characters per word with a 


Extended precision: maximum of 18 words for any one EBC statement. 
LIBF ECHRI NOTE: If 18 words are used, the last character of 
DC (Non-Zero) the 18th word will be blank because of the restric- 


DC A tions of the EBC statement. 


APPENDIX A, CORE STORAGE REQUIREMENTS 





Subroutine | Subroutine | Core Size 
Function Name (Words ) Remarks 
Annotation | FCHRI* 580 Standard precision 
ECHRI* 588 Extended precision 
Character FCHAR 52 Standard precision 
ECHAR 58 Extended precision 
Grid FGRID Standard precision 
EGRID Extended precision 
Plot FPLOT 48 Standard precision 
EPLOT 56 Extended precision 


POINT | 108 | Standard and ext, precision 


Scale SCALF 4 Standard precision 
SCALE 4 Extended precision 
4 











Plot Scaler {| FRULE 114 Standard precision 
ERULE 130 Extended precision 
XY PLT Standard and ext. precision 


*In FORTRAN this function is performed using the WRITE statement. 
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APPENDIX B, SUBROUTINE USAGE 


, 
f 


mor 
ee 


SCALE 


* Separate entry points to the Annotation Routine 
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Other Subroutines Required 
Called by LIBF 


FLOAT, FMPY, IFIX, FADD, FLDX, FINC, XYPLT, PLOTI, FSTOY, 
FLD 


FLOAT, EMPY, IFIX, EADD, ELDX, EINC, XYPLT, PLOTI, ESTOY, 
ELD 

FCHRX, FLD, FSTOX, FSTO 
ECHRX, ELD, ESTOX, ESTO 

FADD, FLD, FSTO, SNR 

EADD, ELD, ESTO, SNR 

FMOVE, XYPLT, PLOTI 

EMOVE, XYPLT, PLOTI, ELD, ESTO 
PLOTI 

FRULE 

ERULE 


FLDX, FSUBX, FMPYX, FLD, FSTOX, FMPY, IFIX, FADD 


ELDX, ESUBX, EMPYX, ELD, ESTOX, EMPY, IFIX, ESTO, EADD 





This appendix contains two sample plotter programs 
utilizing the IBM 1130 Monitor System. 

Test Program 4 demonstrates the character- 
drawing capabilities of the plotter. Figure 4 shows 
a listing of this program, and Figure 5 shows the 


**#PLOTTER TEST 4 

#NAME PLOO4 

*LIST ALL 

*#ONE WORD INTEGERS 

*10CS(1132 PRINTER»sPLOTTER» CARD) 


PLOTTER TEST 4 

c TEST CHARACTER ROUTINE 
DIMENSION IA(47)91B(36) 91C(10)91D(26) 
EQUIVALENCE (IAC1) sIB(1L) oIC(1)) 9 (TAC11) 910019) 


APPENDIX C. SAMPLE PROGRAMS 


resultant plotter drawing. 

Test Program 5 demonstrates the curve-plotting 
capabilities of the plotter. Figure 6 shows a listing 
of this program, and Figure 7 shows the resultant 
plotter drawing. 


PAGE 01 


PAGE 02 


1 FORMAT(' PLOO4!) 

2 FORMAT(' THIS IS A TEST OF THE CHARACTER ROUTINE'/s* TEST IS IN 5! 
1§ PARTS'//* PART 1 = PLOT THE FOLLOWING CHARACTERS «2 IN SIZE!) 

3 FORMAT(1H 47A1) 

4 FORMAT(//' PART 2 = PLOT CHARACTERS A=Z ¢27W BY 0 37H HORIZONTAL!) 

5 FORMAT(47A1) 

6 FORMAT(//' PART 3 = PLOT CHARACTERS AmZ «25W BY e15H ON A 45!) 

7 FORMAT(//' PART 4 = PLOT CHARACTERS 0-9 615W BY 0625H VERTICAL!) 

8 FORMAT(//* PART 5 — PLOT CHARACTERS 0=9sA=-Z 0615 BY 015 ON A! 


1* 3 INCH CIRCLE‘) 

READ (295)1A 

WRITE(391) 

WRITE (392) 

PI = 3414159 

WRITE(393)1A 

CALL FCHAR(Ocs0ese2002900) 
WRITE(T®5) 1A 

WRITE (394) 

CALL FCHAR(009¢390279037900) 
WRITE (795) 1D 

WRITE(3096) 

CALL FCHAR(027907590e2590l1599l1 /4e) 
WRITE(795)10 

WRITE (397) 

CALL FCHAR e25ele2velSse25sPl/2e) 
WRITE(7T95)1C€ 

WRITE (398) 

T = Oc 

DEL = PI/186 

0O 40 I = 1936 


CALL FCHAR(20+105*COS(T) 05075 +le5*SIN(TI 9015901597) 


WRITE(785)IB(1) 
40 T= T + DEL 
CALL FCHAR(1es7e9velsel se) 
WRITE( 791) 
WRITE(301234) 
CALL EXIT 
1234 FORMAT(//* END OF TEST'//) 


PLACE PLOTTER IN LOWER LEFT CORNER OF IMAGINARY 
8 X 9 INCH RECTANGLE (8 = Y) 


AANN 


END 


Figure 4. Plotter Test 4 Listing (Part 1 of 2) 
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PLOTTER TEST 4 PAGE 03 


VARIABLE ALLOCATIONS 
IA 2Q002E IB s002E IC 2002E 10 20024 PI 2003A T 2003C DEL 2003E I 20044 


STATEMENT ALLOCATIONS 
1 sQO06F 2 20074 3 20083 4 #0088 5 200D7 6 200DA 7 2O00F7? 86 20115 1234 013A 40 =O1F8 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
1rocs 





CALLED SUBPROGRAMS 
FCHAR FCOS FSIN FADD FMPY FOIV FLD FSTO SRED SWRT SCOMP SFIO SIOAI SIOIX SuUBSC 
CARDZ PRNTZ  WCHRI 


REAL CONSTANTS 
0314159E 01=0046 eO0O00000E 0020048 e200000E 002004A e300000E 00s004C e270000E O00=004E e37Q0000E 00=0050 
e750000E 0020052 e250000E 000054 el50090E 0020056 e400000E 0120058 el20090E 012005A e200000E 01=005C 
el8Q0000E 02=005E el 50000E 01=0060 e575000E 01=0062 elOCOOOE 01*0064 e7T9O000E 01=0066 elQ00000E 00=0068 


INTEGER CONSTANTS 
22006A 320068 72006C 1=006D 362006E 


CORE REQUIREMENTS FOR PLOO04 
COMMON QO VARIABLES 70 PROGRAM 464 


END OF COMPILATION 


// XEQ 


PLOO4 
THIS IS A TEST OF THE CHARACTER ROUTINE 
TEST IS IN 5 PARTS 


PART 1 = PLOT THE FOLLOWING CHARACTERS e2 IN SIZE 
0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ =+e%/() S29 


PART 2 = PLOT CHARACTERS Am=Z e27W BY «37H HORIZONTAL 

PART 3 = PLOT CHARACTERS A=Z e25W BY e15H ON A 45 

PART 4 = PLOT CHARACTERS 0=9 e15W BY e25H VERTICAL 

PART 5 = PLOT CHARACTERS 0=9s9A"Z 015 BY 015 ON A 3 INCH CIRCLE 
END OF TEST 


Figure 4. Plotter Test 4 Listing (Part 2 of 2) 
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0123456789 
My 


ABCOEFGHTIKLMNOPORSTUVWXYZ 


0123456/8S9ABCDEF GHIISJKALMNOPOQRS TUVWXYZ f-+2%*7 (0) $= 5 


Figure 5. Plotter Test 4 Drawing 
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**#PLOTTER TEST 5 

*NAME PLOOS 

*LIST ALL 

*#ONE WORD INTEGERS 
*#IO0CS(1132 PRINTER »sPLOTTER) 


PLOTTER TEST 5 
FORMAT(' PLOOS!) 
FORMAT(* ¥ = SIN(20*X) + COS(3e*X)9 X = =2e*PIlse 2e*PI') 
FORMAT (F704) 
FORMAT (F703) 
WRITE(391) 
WRITE(393) 
PI 3014159 
=z l4e/(GetPI) 
SY = Te/4e 
= 


wt wor 


025 
—2e1#PI 
PY = =2e) 
CALL FPLOT(2900e90¢) 
CALL SCALF(SX9oSYoPXsPY) 
CALL FGRID(0900es00esP!I/4e98) 
CALL FGRID(290490e9Pl/4e 98) 
CALL FGRID(1s00es00e2DYe8) 
CALL FGRID(39009009DY98) 
T = BetOl/26 
XD = e050/SX 
X 8 ~2e*PI 
Y #2 =—e05 
DEL = Pl/4&e 
EP ® 2.001 
0DO 10 I = 1917 
IFCABS(X) = EP)99997 
7 CALL FCHAR(X=XD9Yeel0eelOeT) 
WRITEC794)X 
9 X = X + DEL 
10 CONTINUE 
T = Oe 
Y = -26 
X 2 -00770/SX 
OEL = DY 
XD = «05/SY 
00 20 I = 1917 
IF(ABS(Y) = EPI19ellel1l 
11 CALL FCHAR(XsY=XDe0l090el09T) 
WRITE(795)Y 


19 Yu Y + DEL 
20 CONTINUE 
X = ~2e*PI 


CALL FPLOT(=29X9SIN(2e*X)+COS(3e*X)) 
DEL = PI/225¢ 
TEST = 2e*PI 
30 Y = SIN(2¢*X)+COS(3e*X) 
CALL FPLOT(OsXsyY) 
IF (TEST=X)50950940 
40 Xa X + DEL 
GO TO 30 
50 CALL FCHAR( @220%e11/SXsmZeme40/SYselleel6s0e) 
WRITE( 793) 
CALL FPLOT(~29PXoPY) 
CALL FCHAR(H1le9*Ple—2elSeelsels0e) 
WRITE (791) 
WRITE(391234) 
CALL EXIT 
1234 FORMAT(//* END OF TEST'//) 
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enertes TEST 5 


PLACE PLOTTER IN LOWER LEFT CORNER OF IMAGINARY 


Cc 7 X 14 INCH RECTANGLE (7 * Y) 
Cc 
END 
PLOTTER TEST 5 
VARIABLE ALLOCATIONS 
PI 20000 SX 20002 SY *0004 DY 
DEL =0014 EP 20016 TEST #0018 I 
STATEMENT ALLOCATIONS 
1 20055 3 2005A 4 =0073 5 
20 #0183 30 201CO 40 201E4 50 
FEATURES SUPPORTED 
ONE WORD INTEGERS 
Tocs 
CALLED SUBPROGRAMS 
FPLOT SCALF FGRID FABS FCHAR 
SWRT SCOMP SFIO SIOF SNR 


REAL CONSTANTS 
0314159E 01=0026 
eQOO0Q00E 00=0032 
e77O0000E 002003E 
e190000E 01=004A 


el 4Q0000E 0220028 
e3Q00000E 01=0034 
e225000E 0320040 
e215000E 012004C 


INTEGER CONSTANTS 


3=004E 2=004F 020050 
CORE REQUIREMENTS FOR PLOOS5 
COMMON O VARIABLES 38 PROGRAM 


END OF COMPILATION 


// XEQ 
PLOOS5 
Y = SIN(2e#X) 


END OF TEST 
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20006 PX 20008 P 
20024 
20075 1234 s0077 7 
sQ1EC 
FSIN FCOS FADD 
PRNTZ WCHRI 


e400000E 012002A 
e200000E 0120036 
e220000E 0220042 


820051 120052 


526 


+ COS(3e#X) 9 X 2 H2Ze*PIl so 2etPI 


PAGE 03 
PAGE 04 
Y 2000A T #000C XD s0Q0E Xx 20010 Y 20012 
20123 9 20136 10 #013¢ 11 2016A 19 #0170 
FSuB FMPY FOIV FLO FSTO FSBR FOVR 


e7TQ0000E 012002C 
¢500000E~01#0038 
ellO000E 0020044 


e250000E 00#002E 
¢100000E-028003A 
e400000E 0020046 


e21Q000E 0180030 
elOQOO0E 00#003C 
el60000E 00=0048 


1720053 720054 
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Figure 7. Plotter Test 5 Drawing 
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e Your comments, accompanied by answers to the following questions, help us produce better 
publications for your use. If your answer to a question is “No” or requires qualification, 
please explain in the space provided below. Comments and suggestions become the property of 
IBM. 


© Does this publication meet your needs? 0 im 
e Did you find the material: 
Easy to read and understand? Cc CJ 
Organized for convenient use? Oo LJ 
Complete? O LC 
Well illustrated? C] C] 
Written for your technical level? CL L] 


Whats vour<Gcepatin 2s el he 

How do you use this publication? 
As an introduction to the subject? Cl As an instructor in a class? [] 
For advanced knowledge of the subject? CJ As a student in a class? Oo 
For information about operating procedures? [] As a reference manual? C 


Other ee 
e Please give specific page and line references with your comments when appropriate. 
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